home *** CD-ROM | disk | FTP | other *** search
/ Shocking The Web CD-ROM / SHOCK_CD.ISO / mac / Chapter Tutorials / DevGallery / Headbone / Source / DRESSVEL.DIR / 00091_turnPageScripts.ls < prev    next >
Encoding:
Text File  |  1996-04-30  |  344 b   |  20 lines
  1. on goRightOnePage
  2.   global gCurPage, gcPAGES
  3.   if gCurPage = gcPAGES then
  4.     set gCurPage to 1
  5.   else
  6.     set gCurPage to gCurPage + 1
  7.   end if
  8.   go(string(gCurPage))
  9. end
  10.  
  11. on goLeftOnePage
  12.   global gCurPage, gcPAGES
  13.   if gCurPage = 1 then
  14.     set gCurPage to gcPAGES
  15.   else
  16.     set gCurPage to gCurPage - 1
  17.   end if
  18.   go(string(gCurPage))
  19. end
  20.